home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_al.inc < prev    next >
Encoding:
Text File  |  1998-05-14  |  6.0 KB  |  401 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    ÄπìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. low_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #32,d2
  18.     addi.w    #$000f,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     subi.w    #16,d1
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     addq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     rts
  77. @@:
  78.     subi.w    #16,d1
  79.     subi.w    #32,d2
  80.     addi.w    #$4010,d7
  81.     move.w    d1,(a6)+
  82.     move.w    d2,(a6)+
  83.     move.w    d7,(a6)+
  84.     move.w    #$0003,(a6)+
  85.  
  86.     addi.w    #16,d1
  87.     subq.w    #1,d7
  88.     move.w    d1,(a6)+
  89.     move.w    d2,(a6)+
  90.     move.w    d7,(a6)+
  91.     move.w    #$0003,(a6)+
  92.  
  93.     subi.w    #16,d1
  94.     addi.w    #16,d2
  95.     addq.w    #3,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     addi.w    #16,d1
  102.     subq.w    #1,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     subi.w    #16,d1
  109.     addi.w    #16,d2
  110.     addq.w    #3,d7
  111.     move.w    d1,(a6)+
  112.     move.w    d2,(a6)+
  113.     move.w    d7,(a6)+
  114.     move.w    #$0003,(a6)+
  115.  
  116.     addi.w    #16,d1
  117.     subq.w    #1,d7
  118.     move.w    d1,(a6)+
  119.     move.w    d2,(a6)+
  120.     move.w    d7,(a6)+
  121.     move.w    #$0003,(a6)+
  122.  
  123.     subi.w    #16,d1
  124.     addi.w    #16,d2
  125.     addq.w    #3,d7
  126.     move.w    d1,(a6)+
  127.     move.w    d2,(a6)+
  128.     move.w    d7,(a6)+
  129.     move.w    #$0003,(a6)+
  130.  
  131.     addi.w    #16,d1
  132.     subq.w    #1,d7
  133.     move.w    d1,(a6)+
  134.     move.w    d2,(a6)+
  135.     move.w    d7,(a6)+
  136.     move.w    #$0003,(a6)+
  137.  
  138.     rts
  139. *---------------------------------------
  140. low_a:
  141.     move.w    C_X(a1),d1
  142.     move.w    C_Y(a1),d2
  143.     tst.w    C_LR_F(a1)
  144.     bne    @f
  145.  
  146.     subi.w    #16,d1
  147.     subi.w    #32,d2
  148.     addi.w    #$000f,d7
  149.     move.w    d1,(a6)+
  150.     move.w    d2,(a6)+
  151.     move.w    d7,(a6)+
  152.     move.w    #$0003,(a6)+
  153.  
  154.     addi.w    #16,d1
  155.     addq.w    #8,d7
  156.     move.w    d1,(a6)+
  157.     move.w    d2,(a6)+
  158.     move.w    d7,(a6)+
  159.     move.w    #$0003,(a6)+
  160.  
  161.     subi.w    #16,d1
  162.     addi.w    #16,d2
  163.     subq.w    #6,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.  
  169.     addi.w    #16,d1
  170.     addq.w    #7,d7
  171.     move.w    d1,(a6)+
  172.     move.w    d2,(a6)+
  173.     move.w    d7,(a6)+
  174.     move.w    #$0003,(a6)+
  175.  
  176.     subi.w    #16,d1
  177.     addi.w    #16,d2
  178.     subq.w    #5,d7
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d7,(a6)+
  182.     move.w    #$0003,(a6)+
  183.  
  184.     addi.w    #16,d1
  185.     addq.w    #1,d7
  186.     move.w    d1,(a6)+
  187.     move.w    d2,(a6)+
  188.     move.w    d7,(a6)+
  189.     move.w    #$0003,(a6)+
  190.  
  191.     subi.w    #16,d1
  192.     addi.w    #16,d2
  193.     addq.w    #1,d7
  194.     move.w    d1,(a6)+
  195.     move.w    d2,(a6)+
  196.     move.w    d7,(a6)+
  197.     move.w    #$0003,(a6)+
  198.  
  199.     addi.w    #16,d1
  200.     addq.w    #1,d7
  201.     move.w    d1,(a6)+
  202.     move.w    d2,(a6)+
  203.     move.w    d7,(a6)+
  204.     move.w    #$0003,(a6)+
  205.  
  206.     rts
  207.  
  208. @@:
  209.     subi.w    #16,d1
  210.     subi.w    #32,d2
  211.     addi.w    #$4017,d7
  212.     move.w    d1,(a6)+
  213.     move.w    d2,(a6)+
  214.     move.w    d7,(a6)+
  215.     move.w    #$0003,(a6)+
  216.  
  217.     addi.w    #16,d1
  218.     subq.w    #8,d7
  219.     move.w    d1,(a6)+
  220.     move.w    d2,(a6)+
  221.     move.w    d7,(a6)+
  222.     move.w    #$0003,(a6)+
  223.  
  224.     subi.w    #16,d1
  225.     addi.w    #16,d2
  226.     addi.w    #9,d7
  227.     move.w    d1,(a6)+
  228.     move.w    d2,(a6)+
  229.     move.w    d7,(a6)+
  230.     move.w    #$0003,(a6)+
  231.  
  232.     addi.w    #16,d1
  233.     subq.w    #7,d7
  234.     move.w    d1,(a6)+
  235.     move.w    d2,(a6)+
  236.     move.w    d7,(a6)+
  237.     move.w    #$0003,(a6)+
  238.  
  239.     subi.w    #16,d1
  240.     addi.w    #16,d2
  241.     addq.w    #3,d7
  242.     move.w    d1,(a6)+
  243.     move.w    d2,(a6)+
  244.     move.w    d7,(a6)+
  245.     move.w    #$0003,(a6)+
  246.  
  247.     addi.w    #16,d1
  248.     subq.w    #1,d7
  249.     move.w    d1,(a6)+
  250.     move.w    d2,(a6)+
  251.     move.w    d7,(a6)+
  252.     move.w    #$0003,(a6)+
  253.  
  254.     subi.w    #16,d1
  255.     addi.w    #16,d2
  256.     addq.w    #3,d7
  257.     move.w    d1,(a6)+
  258.     move.w    d2,(a6)+
  259.     move.w    d7,(a6)+
  260.     move.w    #$0003,(a6)+
  261.  
  262.     addi.w    #16,d1
  263.     subq.w    #1,d7
  264.     move.w    d1,(a6)+
  265.     move.w    d2,(a6)+
  266.     move.w    d7,(a6)+
  267.     move.w    #$0003,(a6)+
  268.  
  269.     rts
  270. *---------------------------------------
  271. low_t:
  272.     move.w    C_X(a1),d1
  273.     move.w    C_Y(a1),d2
  274.     tst.w    C_LR_F(a1)
  275.     bne    @f
  276.  
  277.     subi.w    #16,d1
  278.     subi.w    #32,d2
  279.     addi.w    #$00f,d7
  280.     move.w    d1,(a6)+
  281.     move.w    d2,(a6)+
  282.     move.w    d7,(a6)+
  283.     move.w    #$0003,(a6)+
  284.  
  285.     addi.w    #16,d1
  286.     addi.w    #10,d7
  287.     move.w    d1,(a6)+
  288.     move.w    d2,(a6)+
  289.     move.w    d7,(a6)+
  290.     move.w    #$0003,(a6)+
  291.  
  292.     subi.w    #16,d1
  293.     addi.w    #16,d2
  294.     subq.w    #8,d7
  295.     move.w    d1,(a6)+
  296.     move.w    d2,(a6)+
  297.     move.w    d7,(a6)+
  298.     move.w    #$0003,(a6)+
  299.  
  300.     addi.w    #16,d1
  301.     addi.w    #9,d7
  302.     move.w    d1,(a6)+
  303.     move.w    d2,(a6)+
  304.     move.w    d7,(a6)+
  305.     move.w    #$0003,(a6)+
  306.  
  307.     subi.w    #16,d1
  308.     addi.w    #16,d2
  309.     subq.w    #7,d7
  310.     move.w    d1,(a6)+
  311.     move.w    d2,(a6)+
  312.     move.w    d7,(a6)+
  313.     move.w    #$0003,(a6)+
  314.  
  315.     addi.w    #16,d1
  316.     addq.w    #1,d7
  317.     move.w    d1,(a6)+
  318.     move.w    d2,(a6)+
  319.     move.w    d7,(a6)+
  320.     move.w    #$0003,(a6)+
  321.  
  322.     subi.w    #16,d1
  323.     addi.w    #16,d2
  324.     addq.w    #1,d7
  325.     move.w    d1,(a6)+
  326.     move.w    d2,(a6)+
  327.     move.w    d7,(a6)+
  328.     move.w    #$0003,(a6)+
  329.  
  330.     addi.w    #16,d1
  331.     addq.w    #1,d7
  332.     move.w    d1,(a6)+
  333.     move.w    d2,(a6)+
  334.     move.w    d7,(a6)+
  335.     move.w    #$0003,(a6)+
  336.  
  337.     rts
  338. @@:
  339.     subi.w    #16,d1
  340.     subi.w    #32,d2
  341.     addi.w    #$4019,d7
  342.     move.w    d1,(a6)+
  343.     move.w    d2,(a6)+
  344.     move.w    d7,(a6)+
  345.     move.w    #$0003,(a6)+
  346.  
  347.     addi.w    #16,d1
  348.     subi.w    #10,d7
  349.     move.w    d1,(a6)+
  350.     move.w    d2,(a6)+
  351.     move.w    d7,(a6)+
  352.     move.w    #$0003,(a6)+
  353.  
  354.     subi.w    #16,d1
  355.     addi.w    #16,d2
  356.     addi.w    #11,d7
  357.     move.w    d1,(a6)+
  358.     move.w    d2,(a6)+
  359.     move.w    d7,(a6)+
  360.     move.w    #$0003,(a6)+
  361.  
  362.     addi.w    #16,d1
  363.     subi.w    #9,d7
  364.     move.w    d1,(a6)+
  365.     move.w    d2,(a6)+
  366.     move.w    d7,(a6)+
  367.     move.w    #$0003,(a6)+
  368.  
  369.     subi.w    #16,d1
  370.     addi.w    #16,d2
  371.     addq.w    #3,d7
  372.     move.w    d1,(a6)+
  373.     move.w    d2,(a6)+
  374.     move.w    d7,(a6)+
  375.     move.w    #$0003,(a6)+
  376.  
  377.     addi.w    #16,d1
  378.     subq.w    #1,d7
  379.     move.w    d1,(a6)+
  380.     move.w    d2,(a6)+
  381.     move.w    d7,(a6)+
  382.     move.w    #$0003,(a6)+
  383.  
  384.     subi.w    #16,d1
  385.     addi.w    #16,d2
  386.     addq.w    #3,d7
  387.     move.w    d1,(a6)+
  388.     move.w    d2,(a6)+
  389.     move.w    d7,(a6)+
  390.     move.w    #$0003,(a6)+
  391.  
  392.     addi.w    #16,d1
  393.     subq.w    #1,d7
  394.     move.w    d1,(a6)+
  395.     move.w    d2,(a6)+
  396.     move.w    d7,(a6)+
  397.     move.w    #$0003,(a6)+
  398.  
  399.     rts
  400. *---------------------------------------
  401.